home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / DiskUtil / CD-ROM / JukeBox.lha / FADEOUT.JB < prev    next >
Text File  |  1995-08-23  |  573b  |  37 lines

  1. /* fade in - requires V2 player module  */
  2. /* (c) copyright 1993 by F.J. Reichert */
  3.  
  4. options results;
  5.  
  6. current volume right;
  7. right = result;
  8. current volume left;
  9. left = result;
  10.  
  11. if right > left then do
  12.     do i = right to left by -1;
  13.         set volume "-1" i;
  14.         current break;
  15.         if result ~= 0 then exit(5);
  16.     end;
  17.     level = left;
  18. end;
  19. else do;
  20.     do i = left to right by -1;
  21.         set volume i "-1";
  22.         current break;
  23.         if result ~= 0 then exit(5);
  24.     end;
  25.     level = right;
  26. end;
  27.  
  28. do i = level to 0 by -1;
  29.     set volume i i;
  30.     current break;
  31.     if result ~= 0 then exit(5);
  32. end;
  33.  
  34. pause;
  35.  
  36. exit(0);
  37.